#include "pocketpy.h"

#define CUTE_PNG_IMPLEMENTATION
#include "cute_png.h"

static bool cute_png_loads(int argc, py_Ref argv) {
    PY_CHECK_ARGC(1);
    PY_CHECK_ARG_TYPE(0, tp_bytes);
    int size;
    unsigned char* data = py_tobytes(argv, &size);
    cp_image_t image = cp_load_png_mem(data, size);
    if(image.pix == NULL) return ValueError("cute_png: %s", cp_error_reason);
    py_newarray2d(py_retval(), image.w, image.h);
    for(int y = 0; y < image.h; y++) {
        for(int x = 0; x < image.w; x++) {
            cp_pixel_t pixel = image.pix[y * image.w + x];
            py_ObjectRef slot = py_array2d_getitem(py_retval(), x, y);
            c11_color32 color;
            color.r = pixel.r;
            color.g = pixel.g;
            color.b = pixel.b;
            color.a = pixel.a;
            py_newcolor32(slot, color);
        }
    }
    cp_free_png(&image);
    return true;
}

static bool cute_png_dumps(int argc, py_Ref argv) {
    PY_CHECK_ARGC(1);
    PY_CHECK_ARG_TYPE(0, tp_array2d);
    int width = py_array2d_getwidth(argv);
    int height = py_array2d_getheight(argv);
    cp_image_t image = cp_load_blank(width, height);
    for(int y = 0; y < height; y++) {
        for(int x = 0; x < width; x++) {
            py_ObjectRef slot = py_array2d_getitem(argv, x, y);
            if(!py_checktype(slot, tp_color32)) return false;
            c11_color32 color = py_tocolor32(slot);
            cp_pixel_t pixel = cp_make_pixel_a(color.r, color.g, color.b, color.a);
            image.pix[y * width + x] = pixel;
        }
    }
    cp_saved_png_t saved_image = cp_save_png_to_memory(&image);
    assert(saved_image.data != NULL);
    unsigned char* data = py_newbytes(py_retval(), saved_image.size);
    memcpy(data, saved_image.data, saved_image.size);
    CUTE_PNG_FREE(saved_image.data);
    cp_free_png(&image);
    return true;
}

static void cute_png_Image__dtor(void* ud) {
    cp_image_t* image = (cp_image_t*)ud;
    cp_free_png(image);
}

static bool cute_png_Image__new__(int argc, py_Ref argv) {
    PY_CHECK_ARGC(3);
    PY_CHECK_ARG_TYPE(1, tp_int);
    PY_CHECK_ARG_TYPE(2, tp_int);
    int width = py_toint(py_arg(1));
    int height = py_toint(py_arg(2));
    cp_image_t* ud = py_newobject(py_retval(), py_totype(argv), 0, sizeof(cp_image_t));
    *ud = cp_load_blank(width, height);
    return true;
}

static bool cute_png_Image__from_bytes_STATIC(int argc, py_Ref argv) {
    PY_CHECK_ARGC(1);
    PY_CHECK_ARG_TYPE(0, tp_bytes);
    int size;
    unsigned char* data = py_tobytes(argv, &size);
    cp_image_t image = cp_load_png_mem(data, size);
    if(image.pix == NULL) return ValueError("cute_png: %s", cp_error_reason);
    cp_image_t* ud =
        py_newobject(py_retval(), py_gettype("cute_png", py_name("Image")), 0, sizeof(cp_image_t));
    *ud = image;
    return true;
}

static bool cute_png_Image__width(int argc, py_Ref argv) {
    PY_CHECK_ARGC(1);
    cp_image_t* image = py_touserdata(argv);
    py_newint(py_retval(), image->w);
    return true;
}

static bool cute_png_Image__height(int argc, py_Ref argv) {
    PY_CHECK_ARGC(1);
    cp_image_t* image = py_touserdata(argv);
    py_newint(py_retval(), image->h);
    return true;
}

static bool cute_png_Image__setpixel(int argc, py_Ref argv) {
    PY_CHECK_ARGC(4);
    cp_image_t* image = py_touserdata(argv);
    PY_CHECK_ARG_TYPE(1, tp_int);
    PY_CHECK_ARG_TYPE(2, tp_int);
    PY_CHECK_ARG_TYPE(3, tp_color32);
    int x = py_toint(py_arg(1));
    int y = py_toint(py_arg(2));
    c11_color32 color = py_tocolor32(py_arg(3));
    if(x < 0 || x >= image->w || y < 0 || y >= image->h) {
        return IndexError("cute_png.Image: index out of range");
    }
    cp_pixel_t pixel = cp_make_pixel_a(color.r, color.g, color.b, color.a);
    image->pix[y * image->w + x] = pixel;
    py_newnone(py_retval());
    return true;
}

static bool cute_png_Image__getpixel(int argc, py_Ref argv) {
    PY_CHECK_ARGC(3);
    cp_image_t* image = py_touserdata(argv);
    PY_CHECK_ARG_TYPE(1, tp_int);
    PY_CHECK_ARG_TYPE(2, tp_int);
    int x = py_toint(py_arg(1));
    int y = py_toint(py_arg(2));
    if(x < 0 || x >= image->w || y < 0 || y >= image->h) {
        return IndexError("cute_png.Image: index out of range");
    }
    cp_pixel_t pixel = image->pix[y * image->w + x];
    c11_color32 color;
    color.r = pixel.r;
    color.g = pixel.g;
    color.b = pixel.b;
    color.a = pixel.a;
    py_newcolor32(py_retval(), color);
    return true;
}

static bool cute_png_Image__clear(int argc, py_Ref argv) {
    PY_CHECK_ARGC(2);
    cp_image_t* image = py_touserdata(argv);
    PY_CHECK_ARG_TYPE(1, tp_color32);
    c11_color32 color = py_tocolor32(py_arg(1));
    cp_pixel_t pixel = cp_make_pixel_a(color.r, color.g, color.b, color.a);
    for(int y = 0; y < image->h; y++) {
        for(int x = 0; x < image->w; x++) {
            image->pix[y * image->w + x] = pixel;
        }
    }
    py_newnone(py_retval());
    return true;
}

static bool cute_png_Image__to_rgb565_bytes(int argc, py_Ref argv) {
    PY_CHECK_ARGC(1);
    cp_image_t* image = py_touserdata(argv);
    unsigned char* data = py_newbytes(py_retval(), image->w * image->h * 2);
    for(int y = 0; y < image->h; y++) {
        for(int x = 0; x < image->w; x++) {
            size_t idx = y * image->w + x;
            cp_pixel_t pixel = image->pix[idx];
            uint16_t r = (pixel.r >> 3) & 0x1F;
            uint16_t g = (pixel.g >> 2) & 0x3F;
            uint16_t b = (pixel.b >> 3) & 0x1F;
            uint16_t rgb565 = (r << 11) | (g << 5) | b;
            data[idx * 2 + 0] = (rgb565 >> 8) & 0xFF;
            data[idx * 2 + 1] = (rgb565 >> 0) & 0xFF;
        }
    }
    return true;
}

static bool cute_png_Image__to_png_bytes(int argc, py_Ref argv) {
    PY_CHECK_ARGC(1);
    cp_image_t* image = py_touserdata(argv);
    cp_saved_png_t saved_image = cp_save_png_to_memory(image);
    assert(saved_image.data != NULL);
    unsigned char* data = py_newbytes(py_retval(), saved_image.size);
    memcpy(data, saved_image.data, saved_image.size);
    CUTE_PNG_FREE(saved_image.data);
    return true;
}

void pk__add_module_cute_png() {
    py_GlobalRef mod = py_newmodule("cute_png");
    py_Type tp_image = py_newtype("Image", tp_object, mod, cute_png_Image__dtor);
    py_tpsetfinal(tp_image);

    py_bindfunc(mod, "loads", cute_png_loads);
    py_bindfunc(mod, "dumps", cute_png_dumps);

    py_bindmethod(tp_image, "__new__", cute_png_Image__new__);
    py_bindstaticmethod(tp_image, "from_bytes", cute_png_Image__from_bytes_STATIC);

    py_bindproperty(tp_image, "width", cute_png_Image__width, NULL);
    py_bindproperty(tp_image, "height", cute_png_Image__height, NULL);

    py_bindmethod(tp_image, "setpixel", cute_png_Image__setpixel);
    py_bindmethod(tp_image, "getpixel", cute_png_Image__getpixel);
    py_bindmethod(tp_image, "clear", cute_png_Image__clear);

    py_bindmethod(tp_image, "to_rgb565_bytes", cute_png_Image__to_rgb565_bytes);
    py_bindmethod(tp_image, "to_png_bytes", cute_png_Image__to_png_bytes);
}